toUpper <- function(D) {
  stringi::stri_trans_toupper(D, locale = "en")
}
